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MAILCVT.COM = Convert multiple V3 sequential files into v4 folders 


ABSTRACT: - gee command procedure to convert multiple 
V3 sequential files into V4 folders. 


To add the messages from a single V3 sequential 
mail file into a V4 mail file folder, issue the 
follow sequence of commands in MAIL. 


MAIL> SET FILE v3-sequential-file-name 
MAIL> COPY /ALL folder-name v4-isam-file-name 
INPUT PARAMETERS: 
pl - the file specification of the V3 mail files to convert. 
Wildcards are allowed. The default file specification 
applied is *.MAl 
p2 - the V4 ISAM format output file. the default file 
specification applied is SYSSLOGIN:MAIL.MAI. 
OUTPUT: V4 ISAM format MAIL file. 


IMPLICIT OUTPUT: 
The old version of the output file, if it exsists, will 
be deleted. 


SET’ 
we date 
"WRITE" 
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® 

= 
® 
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if ol .eqs. *”* then pl = ‘*.mai"’ 

outfile = Tepereeiel, presiesiacmeil eet y : 
rate syssoutput : ILCVT-I-Output file will be ‘‘,outfile 
as e= 


+ mypid + ‘’.tmp 


open /write fl ‘tmpfi 
write f1 ts 
search _string = f$parse(p1,"'sys$login:.mai'’) 


convert: 
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infile = fSsearch(search_ string) 

if infile eqs. then goto done 

if infile .eqs. last ttile then goto don 

if fSlocate( JMAIL. MAI; )(. in file) .ne. "F$length(infile 

if f$locate(>MAIL.MA infile) .ne. fSlength(infile) then goto skip mail 
if f$locate('"JMAILS", nt{te) ene. f$length( Atiled then goto skip_mail 

if f$locate(’>MAIL$", | nt file) .ne. f$length(infile) then goto skip_mail 

rr tHilers tnt ite org’) .eqs. “IDX"' then goto skip_mail 
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write syst output Qh itty I-File ‘‘infile' added’ 
“set file "',i ae le 

x = f$parse(infile,, ay 
write f1 “copy/all/n Laoed rm 
oto convert 
skip_mail: 

write sysSoutput “SMAILCVT-I-Skipping file ‘'infile'”’ 
lastfile infile 
pee convert 


atte f1 ‘‘quit’ 
close f1 

a‘t mpfile' 

golate *tmpfile';* 

lastfile = f$search(out file ) 
convert/share ‘outfile' ‘outfile' 
if .not. $status then exit 

set prot *Lasttile' /prot=o=rwed 
oa *Lastfile’ 

exit 


x,’ “,outfile 


| 
| 
then goto skip_mail 
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